home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 61win / data1.cab / Basic_demo_Files / ASCIIDOS.BAS next >
BASIC Source File  |  2001-03-02  |  329b  |  15 lines
  1. 10 !RE-SAVE "ASCIIDOS.BAS"
  2. 20    DIM Fi$[30],Fo$[30],L$[256]
  3. 30    INPUT "Input file?",Fi$
  4. 40    INPUT "Output file?",Fo$
  5. 50    ASSIGN @I TO Fi$;FORMAT ON
  6. 60    CREATE Fo$,1
  7. 70    ASSIGN @O TO Fo$;FORMAT ON
  8. 80    ON END @I GOTO Done
  9. 90    LOOP
  10. 100     ENTER @I;L$
  11. 110     OUTPUT @O;L$
  12. 120   END LOOP
  13. 130 Done: END
  14.  
  15.